Immoral Angel 1/Immoral Angel 1.iso/pc/program/play.dxr/00032.ls

Text File | 1997-07-11 | 1.6 KB | 66 lines

on checkplay
  global playnum
  set playnum to 0
  set mh to mouseH() - 20
  set yoko to (mh / 74) + 1
  set playnum to yoko
  if (yoko < 1) or (yoko > 8) then
    exit
  end if
  rolloverplay(playnum, yoko)
end

on rolloverplay playnum, yoko
  if playnum = 0 then
    exit
  end if
  puppetSprite(7, 1)
  set the type of sprite 7 to 1
  set the ink of sprite 7 to 0
  set the foreColor of sprite 7 to 255
  set the backColor of sprite 7 to 0
  set playphoto to "Play" & playnum
  set the castNum of sprite 7 to the number of member playphoto
  set the locH of sprite 7 to ((yoko - 1) * 74) + 19
  set the locV of sprite 7 to 74
  updateStage()
end

on checkvideo digit
  global videonum
  set videonum to 0
  set mv to mouseV() - 213
  repeat with n = 1 to 6
    if (mv >= 1) and (mv <= 50) then
      set videonum to n
    end if
    set mv to mv - 39
  end repeat
  set videonum to value(digit) + videonum
  rollovervideo(videonum)
end

on rollovervideo videonum
  if videonum = 0 then
    exit
  end if
  puppetSprite(7, 1)
  set the type of sprite 7 to 1
  set the ink of sprite 7 to 0
  set the foreColor of sprite 7 to 255
  set the backColor of sprite 7 to 0
  set the castNum of sprite 7 to the number of member "selectedVideo"
  if videonum <= 6 then
    set the locH of sprite 7 to 61
    set the foreColor of sprite 7 to 255
    set the backColor of sprite 7 to 0
    set the locV of sprite 7 to 198 + (videonum * 39)
  else
    if videonum >= 7 then
      set the locH of sprite 7 to 208
      set the locV of sprite 7 to 198 + ((videonum - 6) * 39)
    end if
  end if
  updateStage()
end